Labels:text | electronics | screenshot | display | number | software | font | parallel | line | web page OCR: Form1 Objectì Form Proc: Load Private Sub Form Load () Set Jim = New Person ' signals initialize event With Jim .Age = 25 Invokes Let property MsgBox .DateofBirth Invokes Get property Set .Mother = New Person ' Invokes Set property End With End Sub st Person x Object |(General) Proc: DateOfBirth [PropertyGe " " Clients don't care (or know) (declarations) whether DOB is a data member Age [PropertyGet] or a derived property Age [PropertyLet] Date OfBirth [PropertyGet] Mother [PropertySet] Public Property Get DateOfBirth () AS Date DateOfBirth = Now - Age * 365.25 End Property Figure 2 - Properties allow interface to hide implementation
